SST P  $MAINBLK       1       0       0     500       0
 SST P  ONE00001       2       0       0       0       0
 LOC     0
 BGN 1,0,0
ONE00001 ENT P,2,L1  ONE            1 1 1
 LDC R,800000.88
 STR R,1,80
 LOD R,1,80
 LDC R,100000.11
 DVR
 STR R,1,80
 LDA 1,13
 CSP  SIO
 LCA 'THIS IS A STRING.'
 LOC    10
 LDC I,17
 LDC I,17
 CSP  WRS
 CSP  EIO
 RET P
L1 DEF         8
 SST P  TWO00002       2       0       0       0       0
 LOC     0
TWO00002 ENT P,2,L1  TWO            1 1 1
 LDC I,800000
 STR I,1,64
 LOD I,1,64
 LDC I,100000
 DVI
 STR I,1,64
 RET P
L1 DEF         8
 SST P  THREE003       2       0       0       0       0
 LOC     0
THREE003 ENT P,2,L1  THREE          1 1 1
 MST 2,0,0
 CUP P,0,TWO00002
 RET P
L1 DEF         8
 LOC     0
$MAINBLK ENT P,1,L3  $MAINBLK       1 1 1
 LDA 1,19
 CSP  SIO
 CSP  REW
 CSP  EIO
 LDA 1,18
 CSP  SIO
 CSP  RES
 CSP  EIO
 LDA 1,13
 LOC    10
 CSP  SIO
 CSP  REW
 CSP  EIO
 LDA 1,12
 CSP  SIO
 CSP  RES
 CSP  EIO
 LDC I,1
 CSP  CLK
 STR I,1,52
 LOC    20
 LDA 1,12
 CSP  SIO
 CSP  RES
 CSP  EIO
 LDA 1,18
 CSP  SIO
 CSP  RES
 CSP  EIO
 LDA 1,13
 CSP  SIO
 LOC    30
 CSP  REW
 CSP  EIO
 LDA 1,19
 CSP  SIO
 CSP  REW
 CSP  EIO
 LDC I,10
 NGI
 STR I,1,64
 LDC I,10
 LOC    40
 STR I,1,544
 LOD I,1,64
 LOD I,1,544
 LEQ I
 FJP L5
L4 LAB
 LDC I,10
 NGI
 STR I,1,60
 LDC I,10
 STR I,1,548
 LOC    50
 LOD I,1,60
 LOD I,1,548
 LEQ I
 FJP L7
L6 LAB
 LDA 1,85
 LOD I,1,64
 CHK J,-10,10
 INC I,10
 IXA 21
 LOD I,1,60
 LOC    60
 CHK J,-10,10
 INC I,10
 IXA 1
 LDC C,' '
 CHK I,0,255
 STO C
 LOD I,1,60
 LOD I,1,548
 NEQ I
 FJP L7
 LOC    70
 LOD I,1,60
 INC I,1
 STR I,1,60
 UJP L6
L7 LAB
 LOD I,1,64
 LOD I,1,544
 NEQ I
 FJP L5
 LOD I,1,64
 INC I,1
 LOC    80
 STR I,1,64
 UJP L4
L5 LAB
 LDC I,31
 NGI
 STR I,1,44
 LDC I,31
 STR I,1,544
 LOD I,1,44
 LOD I,1,544
 LEQ I
 LOC    90
 FJP L9
L8 LAB
 LOD I,1,44
 LDC R,10.0
 FLO
 DVR
 STR R,1,80
 LOD R,1,80
 CSP  SIN
 STR R,1,76
 LOD R,1,80
 LOC   100
 CSP  COS
 STR R,1,72
 LOD R,1,76
 LOD R,1,72
 DVR
 CSP  ATN
 STR R,1,68
 LOD R,1,68
 LOD R,1,80
 SBR
 LOC   110
 ABR
 LDC R,0.1E-6
 GRT R
 FJP L10
 LDA 1,13
 CSP  SIO
 LCA 'SIN('
 LDC I,4
 LDC I,4
 CSP  WRS
 LOC   120
 LOD R,1,80
 LDC I,14
 LDC I,0
 CSP  WRR
 LCA ')='
 LDC I,2
 LDC I,2
 CSP  WRS
 LOD R,1,76
 LDC I,14
 LOC   130
 LDC I,0
 CSP  WRR
 LCA ',COS('
 LDC I,5
 LDC I,5
 CSP  WRS
 LOD R,1,80
 LDC I,14
 LDC I,0
 CSP  WRR
 LOC   140
 LCA ')='
 LDC I,2
 LDC I,2
 CSP  WRS
 LOD R,1,72
 LDC I,14
 LDC I,0
 CSP  WRR
 LCA ',ARCTAN='
 LDC I,8
 LOC   150
 LDC I,8
 CSP  WRS
 LOD R,1,68
 LDC I,14
 LDC I,0
 CSP  WRR
 CSP  WLN
 CSP  EIO
L10 LAB
 LDC R,10.0
 LOD R,1,76
 LOC   160
 MPR
 LDC R,0.5
 ADR
 TRC
 STR I,1,64
 LDC R,10.0
 LOD R,1,72
 MPR
 LDC R,0.5
 ADR
 LOC   170
 TRC
 STR I,1,60
 LOD I,1,64
 LDC I,10
 NGI
 GEQ I
 LOD I,1,64
 LDC I,10
 LEQ I
 AND
 LOC   180
 LOD I,1,60
 LDC I,10
 NGI
 GEQ I
 AND
 LOD I,1,60
 LDC I,10
 LEQ I
 AND
 FJP L11
 LOC   190
 LDA 1,85
 LOD I,1,64
 CHK J,-10,10
 INC I,10
 IXA 21
 LOD I,1,60
 CHK J,-10,10
 INC I,10
 IXA 1
 LDC C,'*'
 LOC   200
 CHK I,0,255
 STO C
 UJP L12
L11 LAB
 LDA 1,13
 CSP  SIO
 LCA 'NOT IN RANGE: R='
 LDC I,16
 LDC I,16
 CSP  WRS
 LOD R,1,80
 LOC   210
 LDC I,14
 LDC I,0
 CSP  WRR
 LCA ',X='
 LDC I,3
 LDC I,3
 CSP  WRS
 LOD R,1,76
 LDC I,14
 LDC I,0
 LOC   220
 CSP  WRR
 LCA ',Y='
 LDC I,3
 LDC I,3
 CSP  WRS
 LOD R,1,72
 LDC I,14
 LDC I,0
 CSP  WRR
 LCA ',I='
 LOC   230
 LDC I,3
 LDC I,3
 CSP  WRS
 LOD I,1,64
 LDC I,12
 CSP  WRI
 LCA ',J='
 LDC I,3
 LDC I,3
 CSP  WRS
 LOC   240
 LOD I,1,60
 LDC I,12
 CSP  WRI
 CSP  WLN
 CSP  EIO
L12 LAB
 LOD I,1,44
 LOD I,1,544
 NEQ I
 FJP L9
 LOD I,1,44
 LOC   250
 INC I,1
 STR I,1,44
 UJP L8
L9 LAB
 LDA 1,13
 CSP  SIO
 LCA 'CIRCLE'
 LDC I,6
 LDC I,6
 CSP  WRS
 LDC I,1
 LOC   260
 LDC I,12
 CSP  WRI
 LDC R,5.0
 LDC I,14
 LDC I,0
 CSP  WRR
 CSP  EIO
 LDA 1,13
 CSP  SIO
 CSP  WLN
 LOC   270
 CSP  EIO
 LDC I,10
 NGI
 STR I,1,64
 LDC I,10
 STR I,1,544
 LOD I,1,64
 LOD I,1,544
 LEQ I
 FJP L14
L13 LAB
 LOC   280
 LDA 1,13
 CSP  SIO
 LDA 1,85
 LOD I,1,64
 CHK J,-10,10
 INC I,10
 IXA 21
 LDC I,21
 LDC I,21
 CSP  WRS
 LOC   290
 CSP  WLN
 CSP  EIO
 LOD I,1,64
 LOD I,1,544
 NEQ I
 FJP L14
 LOD I,1,64
 INC I,1
 STR I,1,64
 UJP L13
L14 LAB
 LOC   300
 LDA 1,540
 NEW 4
 LDA 1,536
 SAV
 LDA 1,532
 NEW 4
 LOD A,1,536
 RST
 LDA 1,528
 NEW 4
 LOC   310
 LOD A,1,528
 LOD A,1,532
 NEQ A
 FJP L15
 LDA 1,13
 CSP  SIO
 LCA 'NEW AND DISPOSE DON''T WORK'
 LDC I,26
 LDC I,26
 CSP  WRS
 LOC   320
 CSP  WLN
 CSP  EIO
 UJP L16
L15 LAB
 LDA 1,13
 CSP  SIO
 LCA 'NEW AND DISPOSE OK'
 LDC I,18
 LDC I,18
 CSP  WRS
 CSP  WLN
 LOC   330
 CSP  EIO
L16 LAB
 LDC C,'\'
 CHK I,0,255
 STR C,1,13
 LDA 1,13
 CSP  SIO
 CSP  PUT
 CSP  EIO
 LDA 1,13
 CSP  SIO
 LOC   340
 LCA ' TESTED THAT PUT BACKSLASH WORKS'
 LDC I,32
 LDC I,32
 CSP  WRS
 CSP  WLN
 CSP  EIO
 LDC I,1
 CSP  CLK
 STR I,1,48
 LDA 1,19
 LOC   350
 CSP  SIO
 LCA 'WE TOOK'
 LDC I,7
 LDC I,7
 CSP  WRS
 CSP  EIO
 LDA 1,19
 CSP  SIO
 LOD I,1,48
 LOD I,1,52
 LOC   360
 SBI
 LDC I,12
 CSP  WRI
 CSP  WLN
 CSP  EIO
 LDC I,5
 CSP  XIT
 RET P
L3 DEF       552
 STP